home *** CD-ROM | disk | FTP | other *** search
/ PC Home 48 / Fun Clicp Art 5000.iso / r / mbm / 00698_bt tr.ls < prev    next >
Encoding:
Text File  |  1996-05-11  |  398 b   |  24 lines
  1. on MouseClick
  2.   global gBoutons, gNumSpr, gSurvolPrec
  3.   beep()
  4.   gBoutons(relache, gNumSpr)
  5.   curseur(1)
  6.   set gSurvolPrec to -1
  7. end
  8.  
  9. on mouseDown
  10.   global gNumSpr, g1erSprNav
  11.   set gNumSpr to g1erSprNav + 2
  12.   gBoutons(appuie, gNumSpr)
  13. end
  14.  
  15. on mouseUp
  16.   global gNumSpr, g1erSprNav, gLocLabel, gLabel
  17.   curseur(1)
  18.   if gNumSpr = (g1erSprNav + 2) then
  19.     MouseClick()
  20.   else
  21.     pass()
  22.   end if
  23. end
  24.